home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / DB5___CT.DFM < prev    next >
Text File  |  1994-10-12  |  4KB  |  147 lines
  1.  
  2. DEFINE FORM dB5___Ct ;
  3.    PROPERTY ;
  4.       HEIGHT           19,;
  5.       LEFT             9,;
  6.       MDI              .F.,;
  7.       TEXT             "Abrir fichero de catálogo",;
  8.       TOP              1,;
  9.       WIDTH            61
  10.  
  11. dB5___Ct.MODALFORM          = .T.
  12. dB5___Ct.NFLDPLC            = 1
  13. dB5___Ct.NLEFT              = 1
  14. dB5___Ct.NOBJCTR            = 10
  15. dB5___Ct.NTOP               = 15
  16.  
  17.  
  18.  
  19. DEFINE RECTANGLE REDESC OF M->dB5___Ct;
  20.    PROPERTY ;
  21.       HEIGHT           6,;
  22.       TOP              9,;
  23.       WIDTH            57
  24.  
  25. dB5___Ct.REDESC.ColorBorder           = "W/W"
  26. dB5___Ct.REDESC.ColorNormal           = "B/B"
  27.  
  28.  
  29. DEFINE TEXT TXCATNAME OF M->dB5___Ct;
  30.    PROPERTY ;
  31.       LEFT             11,;
  32.       TEXT             "<Nombre del catálogo>",;
  33.       TOP              1,;
  34.       WIDTH            21
  35.  
  36.  
  37.  
  38. DEFINE TEXT TXNAME1 OF M->dB5___Ct;
  39.    PROPERTY ;
  40.       LEFT             1,;
  41.       TEXT             "~S~eleccione el fichero de catálogo",;
  42.       TOP              3,;
  43.       WIDTH            33
  44.  
  45.  
  46.  
  47. DEFINE LISTBOX LBNAME2 OF M->dB5___Ct;
  48.    PROPERTY ;
  49.       DATASOURCE       "STRING Item_1,Item_2,Item_3,Item_4",;
  50.       HEIGHT           6,;
  51.       LEFT             1,;
  52.       ONSELCHANGE      ShowInfo,;
  53.       TOP              4,;
  54.       WIDTH            55
  55.  
  56. dB5___Ct.LBNAME2.Column               = 3
  57.  
  58.  
  59. DEFINE TEXT TXNAME3 OF M->dB5___Ct;
  60.    PROPERTY ;
  61.       LEFT             2,;
  62.       TEXT             "Descripción",;
  63.       TOP              12,;
  64.       WIDTH            11
  65.  
  66. dB5___Ct.TXNAME3.ColorNormal          = "GB+/B"
  67. dB5___Ct.TXNAME3.Label                = .F.
  68.  
  69.  
  70. DEFINE TEXT TXDESC OF M->dB5___Ct;
  71.    PROPERTY ;
  72.       LEFT             2,;
  73.       TEXT             "<Descripción del catálogo>",;
  74.       TOP              13,;
  75.       WIDTH            51
  76.  
  77. dB5___Ct.TXDESC.ColorNormal           = "W+/B"
  78. dB5___Ct.TXDESC.Label                 = .F.
  79.  
  80.  
  81. DEFINE PUSHBUTTON BTOK OF M->dB5___Ct;
  82.    PROPERTY ;
  83.       DEFAULT          .T.,;
  84.       LEFT             10,;
  85.       ONCLICK          OKHand,;
  86.       TEXT             "~A~ceptar",;
  87.       TOP              15,;
  88.       WIDTH            11
  89.  
  90. dB5___Ct.BTOK.GrabFocus               = .F.
  91. dB5___Ct.BTOK.Procfile                = "OKHAND.PRG," + HOME() + "FORMRUN.DBO"
  92.  
  93.  
  94. DEFINE PUSHBUTTON BTCANCEL OF M->dB5___Ct;
  95.    PROPERTY ;
  96.       LEFT             23,;
  97.       ONCLICK          CanHand,;
  98.       TEXT             "Cancelar",;
  99.       TOP              15,;
  100.       WIDTH            12
  101.  
  102. dB5___Ct.BTCANCEL.GrabFocus           = .F.
  103. dB5___Ct.BTCANCEL.Procfile            = "CANHAND.PRG," + HOME() + "FORMRUN.DBO"
  104.  
  105.  
  106. DEFINE PUSHBUTTON PBNAME7 OF M->dB5___Ct;
  107.    PROPERTY ;
  108.       HELPID           "32000",;
  109.       LEFT             37,;
  110.       ONCLICK          IDEHelp,;
  111.       TEXT             "A~y~uda",;
  112.       TOP              15,;
  113.       WIDTH            10
  114.  
  115. dB5___Ct.PBNAME7.GrabFocus            = .F.
  116. dB5___Ct.PBNAME7.Procfile             = "IDEHelp.prg," + HOME() + "FORMRUN.DBO"
  117.  
  118.  
  119. DEFINE TEXT TXNAME8 OF M->dB5___Ct;
  120.    PROPERTY ;
  121.       LEFT             2,;
  122.       TEXT             "Vía de acceso",;
  123.       TOP              10,;
  124.       WIDTH            13
  125.  
  126. dB5___Ct.TXNAME8.ColorNormal          = "GB+/B"
  127.  
  128.  
  129. DEFINE TEXT TXPATH OF M->dB5___Ct;
  130.    PROPERTY ;
  131.       LEFT             2,;
  132.       TEXT             "<Vía de acceso a fichero completa>",;
  133.       TOP              11,;
  134.       WIDTH            51
  135.  
  136. dB5___Ct.TXPATH.ColorNormal           = "W+/B"
  137.  
  138.  
  139. DEFINE TEXT TXNAME10 OF M->dB5___Ct;
  140.    PROPERTY ;
  141.       LEFT             1,;
  142.       TEXT             "Catálogo:",;
  143.       TOP              1,;
  144.       WIDTH            9
  145.  
  146.  
  147.